home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - Pascal / PAS025.dsk / ADMERG.TEXT.txt < prev    next >
Text File  |  2012-02-16  |  1KB  |  57 lines
  1. (*$I-*)
  2. PROGRAM ADMERG;
  3.  
  4. (*    This program is short and sweet and not very robust.  It is that 
  5.     way to make it easy to type in.  Now you know the record size of 
  6.     ATTACH.DATA files, you are welcome to make it more robust yourself.  *)
  7.  
  8.   
  9.   
  10.   TYPE 
  11.   
  12.     DEVREC=ARRAY[0..8] OF INTEGER;
  13.     
  14.   VAR
  15.   
  16.     IDNAME,ODNAME:STRING;
  17.     CH:CHAR;
  18.     INDATA,OUTDATA:FILE OF DEVREC;
  19.     
  20.     (* Any error aborts the program *)
  21.   PROCEDURE ERROR(ST:STRING);
  22.   BEGIN
  23.     WRITELN('ERROR =>',ST);
  24.     WRITE('RETURN to exit ADMERG:');
  25.     READLN;
  26.     EXIT(ADMERG)
  27.   END;
  28.   
  29.   
  30. BEGIN
  31.   WRITE('Name of Data file you will create:');
  32.   READLN(ODNAME);
  33.   REWRITE(OUTDATA,ODNAME);
  34.   IF IORESULT<>0 THEN
  35.     ERROR('opening Output file');
  36.   CH:='Y';
  37.   WHILE (CH='Y') OR (CH='y') DO
  38.     BEGIN
  39.       WRITE('Name of Input file:');
  40.       READLN(IDNAME);
  41.       RESET(INDATA,IDNAME);
  42.       IF IORESULT<>0 THEN
  43.         ERROR('opening Input file');
  44.       WHILE NOT EOF(INDATA) DO
  45.         BEGIN
  46.           OUTDATA^:=INDATA^;
  47.           PUT(OUTDATA);
  48.           GET(INDATA)
  49.         END;
  50.       CLOSE(INDATA);
  51.       WRITE('Another Input file?  Y)es, N)o :');
  52.       READLN(CH)
  53.     END;
  54.   CLOSE(OUTDATA,LOCK)
  55. END.
  56.  
  57.